perm filename GRUNG4.F4[NET,GUE] blob sn#026505 filedate 1973-02-26 generic text, type T, neo UTF8
      SUBROUTINE GRUNG4
      DOUBLE PRECISION TD,ZO,EMA,PI,W,WC,X,Y
      DIMENSION X(50),Y(50)
      COMMON /GRUNGE/ I,TD,ZO,EMA,PI,W,WC
      COMMON /FIT/ X,Y
      X(I)=W*W
      Y(I)=W*W/DSQRT(36./(EMA*EMA)-1.)
      RETURN
      END